home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 9.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 33 3a 34 30 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:40 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 6c 69 73 |s-20.3/l|isp/ilis|
|000000a0| 70 2f 69 6c 69 73 70 2d | 6f 75 74 2e 65 6c 0a 3b |p/ilisp-|out.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 69 6c 69 73 | (erro|r "`ilis|
|000001f0| 70 2d 6f 75 74 2e 65 6c | 27 20 77 61 73 20 63 6f |p-out.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 28 62 79 74 65 2d 63 6f |nil))...|(byte-co|
|00000260| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c0 |de "..!.|.....B..|
|00000270| 87 22 20 5b 62 6f 75 6e | 64 70 20 69 6c 69 73 70 |." [boun|dp ilisp|
|00000280| 2d 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 20 22 |-output-|buffer "|
|00000290| 20 2a 4f 75 74 70 75 74 | 2a 22 20 63 75 72 72 65 | *Output|*" curre|
|000002a0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|000002b0| 0a 23 40 34 37 20 2a 54 | 68 65 20 6d 61 6a 6f 72 |.#@47 *T|he major|
|000002c0| 20 6d 6f 64 65 20 66 6f | 72 20 74 68 65 20 69 6c | mode fo|r the il|
|000002d0| 69 73 70 20 74 79 70 65 | 6f 75 74 20 77 69 6e 64 |isp type|out wind|
|000002e0| 6f 77 2e 1f 0a 28 64 65 | 66 76 61 72 20 69 6c 69 |ow...(de|fvar ili|
|000002f0| 73 70 2d 6f 75 74 70 75 | 74 2d 62 75 66 66 65 72 |sp-outpu|t-buffer|
|00000300| 2d 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 27 6c 69 73 |-major-m|ode 'lis|
|00000310| 70 2d 6d 6f 64 65 20 28 | 23 24 20 2e 20 2d 36 39 |p-mode (|#$ . -69|
|00000320| 34 29 29 0a 23 40 37 33 | 20 2a 54 68 65 20 6d 69 |4)).#@73| *The mi|
|00000330| 6e 69 6d 75 6d 20 68 65 | 69 67 68 74 20 6f 66 20 |nimum he|ight of |
|00000340| 74 68 65 20 74 79 70 65 | 6f 75 74 20 77 69 6e 64 |the type|out wind|
|00000350| 6f 77 20 75 73 65 64 20 | 74 6f 20 64 69 73 70 6c |ow used |to displ|
|00000360| 61 79 20 69 6c 69 73 70 | 20 6f 75 74 70 75 74 2e |ay ilisp| output.|
|00000370| 1f 0a 28 64 65 66 76 61 | 72 20 69 6c 69 73 70 2d |..(defva|r ilisp-|
|00000380| 6f 75 74 70 75 74 2d 6d | 69 6e 2d 68 65 69 67 68 |output-m|in-heigh|
|00000390| 74 20 32 20 28 23 24 20 | 2e 20 2d 38 30 39 29 29 |t 2 (#$ |. -809))|
|000003a0| 0a 23 40 37 33 20 2a 54 | 68 65 20 6d 61 78 69 6d |.#@73 *T|he maxim|
|000003b0| 75 6d 20 68 65 69 67 68 | 74 20 6f 66 20 74 68 65 |um heigh|t of the|
|000003c0| 20 74 79 70 65 6f 75 74 | 20 77 69 6e 64 6f 77 20 | typeout| window |
|000003d0| 75 73 65 64 20 74 6f 20 | 64 69 73 70 6c 61 79 20 |used to |display |
|000003e0| 69 6c 69 73 70 20 6f 75 | 74 70 75 74 2e 1f 0a 28 |ilisp ou|tput...(|
|000003f0| 64 65 66 76 61 72 20 69 | 6c 69 73 70 2d 6f 75 74 |defvar i|lisp-out|
|00000400| 70 75 74 2d 6d 61 78 2d | 68 65 69 67 68 74 20 32 |put-max-|height 2|
|00000410| 35 20 28 23 24 20 2e 20 | 2d 39 33 34 29 29 0a 23 |5 (#$ . |-934)).#|
|00000420| 40 31 30 33 20 54 68 65 | 20 6e 61 6d 65 20 6f 66 |@103 The| name of|
|00000430| 20 61 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 64 | a funct|ion to d|
|00000440| 69 73 70 6c 61 79 20 61 | 6c 6c 20 69 6c 69 73 70 |isplay a|ll ilisp|
|00000450| 20 6f 75 74 70 75 74 2e | 20 20 54 68 65 20 66 75 | output.| The fu|
|00000460| 6e 63 74 69 6f 6e 20 67 | 65 74 73 20 61 20 0a 20 |nction g|ets a . |
|00000470| 73 69 6e 67 6c 65 20 61 | 72 67 75 6d 65 6e 74 2c |single a|rgument,|
|00000480| 20 61 20 73 74 72 69 6e | 67 2e 1f 0a 28 64 65 66 | a strin|g...(def|
|00000490| 76 61 72 20 69 6c 69 73 | 70 2d 64 69 73 70 6c 61 |var ilis|p-displa|
|000004a0| 79 2d 6f 75 74 70 75 74 | 2d 66 75 6e 63 74 69 6f |y-output|-functio|
|000004b0| 6e 20 27 69 6c 69 73 70 | 2d 64 69 73 70 6c 61 79 |n 'ilisp|-display|
|000004c0| 2d 6f 75 74 70 75 74 2d | 64 65 66 61 75 6c 74 20 |-output-|default |
|000004d0| 28 23 24 20 2e 20 31 30 | 36 31 29 29 0a 28 62 79 |(#$ . 10|61)).(by|
|000004e0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 ac 82 c2 11 |te-code |"..!....|
|000004f0| c1 0b 42 13 c2 87 22 20 | 5b 62 6f 75 6e 64 70 20 |..B..." |[boundp |
|00000500| 69 6c 69 73 70 2d 6f 75 | 74 70 75 74 2d 6d 6f 64 |ilisp-ou|tput-mod|
|00000510| 65 2d 6c 69 6e 65 20 6e | 69 6c 20 63 75 72 72 65 |e-line n|il curre|
|00000520| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|00000530| 0a 23 40 35 31 20 49 66 | 20 54 2c 20 74 68 65 6e |.#@51 If| T, then|
|00000540| 20 77 65 20 61 72 65 20 | 69 6e 20 74 68 65 20 69 | we are |in the i|
|00000550| 6c 69 73 70 2d 6f 75 74 | 70 75 74 20 6d 69 6e 6f |lisp-out|put mino|
|00000560| 72 20 6d 6f 64 65 2e 1f | 0a 28 64 65 66 76 61 72 |r mode..|.(defvar|
|00000570| 20 69 6c 69 73 70 2d 6f | 75 74 70 75 74 2d 6d 6f | ilisp-o|utput-mo|
|00000580| 64 65 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 33 33 |de nil (|#$ . 133|
|00000590| 34 29 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |4)).(byt|e-code "|
|000005a0| c0 c1 21 88 c1 5c 6e b7 | ac 84 c3 5c 6e 42 12 c0 |..!..\n.|...\nB..|
|000005b0| 87 22 20 5b 6d 61 6b 65 | 2d 76 61 72 69 61 62 6c |." [make|-variabl|
|000005c0| 65 2d 62 75 66 66 65 72 | 2d 6c 6f 63 61 6c 20 69 |e-buffer|-local i|
|000005d0| 6c 69 73 70 2d 6f 75 74 | 70 75 74 2d 6d 6f 64 65 |lisp-out|put-mode|
|000005e0| 20 6d 69 6e 6f 72 2d 6d | 6f 64 65 2d 61 6c 69 73 | minor-m|ode-alis|
|000005f0| 74 20 28 69 6c 69 73 70 | 2d 6f 75 74 70 75 74 2d |t (ilisp|-output-|
|00000600| 6d 6f 64 65 20 69 6c 69 | 73 70 2d 6f 75 74 70 75 |mode ili|sp-outpu|
|00000610| 74 2d 6d 6f 64 65 2d 6c | 69 6e 65 29 5d 20 32 29 |t-mode-l|ine)] 2)|
|00000620| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6c 69 73 |.(defali|as 'ilis|
|00000630| 70 2d 6f 75 74 70 75 74 | 2d 62 75 66 66 65 72 20 |p-output|-buffer |
|00000640| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 63 72 65 |#[(&opti|onal cre|
|00000650| 61 74 65 2d 70 29 20 22 | 08 ab 85 c1 5c 6e 21 aa |ate-p) "|....\n!.|
|00000660| 83 c3 5c 6e 21 1c 0d ac | 8b c6 c7 c8 c9 21 c8 ca |..\n!...|.....!..|
|00000670| 21 23 43 15 0c 29 87 22 | 20 5b 63 72 65 61 74 65 |!#C..)."| [create|
|00000680| 2d 70 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |-p get-b|uffer-cr|
|00000690| 65 61 74 65 20 69 6c 69 | 73 70 2d 6f 75 74 70 75 |eate ili|sp-outpu|
|000006a0| 74 2d 62 75 66 66 65 72 | 20 67 65 74 2d 62 75 66 |t-buffer| get-buf|
|000006b0| 66 65 72 20 62 75 66 66 | 65 72 20 69 6c 69 73 70 |fer buff|er ilisp|
|000006c0| 2d 6f 75 74 70 75 74 2d | 6d 6f 64 65 2d 6c 69 6e |-output-|mode-lin|
|000006d0| 65 20 66 6f 72 6d 61 74 | 20 22 20 25 73 20 62 75 |e format| " %s bu|
|000006e0| 72 79 2c 20 25 73 20 73 | 63 72 6f 6c 6c 22 20 69 |ry, %s s|croll" i|
|000006f0| 6c 69 73 70 2d 77 68 65 | 72 65 2d 69 73 20 69 6c |lisp-whe|re-is il|
|00000700| 69 73 70 2d 62 75 72 79 | 2d 6f 75 74 70 75 74 20 |isp-bury|-output |
|00000710| 69 6c 69 73 70 2d 73 63 | 72 6f 6c 6c 2d 6f 75 74 |ilisp-sc|roll-out|
|00000720| 70 75 74 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |put] 5])|.(defali|
|00000730| 61 73 20 27 69 6c 69 73 | 70 2d 6f 75 74 70 75 74 |as 'ilis|p-output|
|00000740| 2d 77 69 6e 64 6f 77 20 | 23 5b 6e 69 6c 20 22 c0 |-window |#[nil ".|
|00000750| 09 21 89 1a ad 83 c3 5c | 6e 21 29 87 22 20 5b 67 |.!.....\|n!)." [g|
|00000760| 65 74 2d 62 75 66 66 65 | 72 20 69 6c 69 73 70 2d |et-buffe|r ilisp-|
|00000770| 6f 75 74 70 75 74 2d 62 | 75 66 66 65 72 20 62 75 |output-b|uffer bu|
|00000780| 66 66 65 72 20 67 65 74 | 2d 62 75 66 66 65 72 2d |ffer get|-buffer-|
|00000790| 77 69 6e 64 6f 77 5d 20 | 33 5d 29 0a 23 40 31 35 |window] |3]).#@15|
|000007a0| 30 20 44 69 73 70 6c 61 | 79 20 4f 55 54 50 55 54 |0 Displa|y OUTPUT|
|000007b0| 20 69 6e 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 | in the |appropri|
|000007c0| 61 74 65 20 70 6c 61 63 | 65 2e 0a 20 54 68 69 73 |ate plac|e.. This|
|000007d0| 20 63 61 6c 6c 73 20 74 | 68 65 20 66 75 6e 63 74 | calls t|he funct|
|000007e0| 69 6f 6e 20 67 69 76 65 | 6e 20 62 79 20 74 68 65 |ion give|n by the|
|000007f0| 20 76 61 6c 75 65 20 6f | 66 20 69 6c 69 73 70 2d | value o|f ilisp-|
|00000800| 64 69 73 70 6c 61 79 2d | 6f 75 74 70 75 74 2d 66 |display-|output-f|
|00000810| 75 6e 63 74 69 6f 6e 20 | 69 6e 0a 20 6f 72 64 65 |unction |in. orde|
|00000820| 72 20 74 6f 20 64 6f 20 | 74 68 65 20 72 65 61 6c |r to do |the real|
|00000830| 20 77 6f 72 6b 2e 1f 0a | 28 64 65 66 61 6c 69 61 | work...|(defalia|
|00000840| 73 20 27 6c 69 73 70 2d | 64 69 73 70 6c 61 79 2d |s 'lisp-|display-|
|00000850| 6f 75 74 70 75 74 20 23 | 5b 28 6f 75 74 70 75 74 |output #|[(output|
|00000860| 29 20 22 08 3f ae 98 08 | 3b ac 84 c1 c2 21 88 c3 |) ".?...|;....!..|
|00000870| c4 c5 5c 22 ab 86 c3 c6 | 21 08 21 10 0e 07 08 21 |..\"....|!.!....!|
|00000880| 87 22 20 5b 6f 75 74 70 | 75 74 20 65 72 72 6f 72 |." [outp|ut error|
|00000890| 20 22 62 75 67 3a 20 6e | 6f 74 20 61 20 73 74 72 | "bug: n|ot a str|
|000008a0| 69 6e 67 20 69 6e 20 6c | 69 73 70 2d 64 69 73 70 |ing in l|isp-disp|
|000008b0| 6c 61 79 2d 6f 75 74 70 | 75 74 22 20 69 6c 69 73 |lay-outp|ut" ilis|
|000008c0| 70 2d 76 61 6c 75 65 20 | 63 6f 6d 69 6e 74 2d 65 |p-value |comint-e|
|000008d0| 72 72 6f 72 70 20 74 20 | 69 6c 69 73 70 2d 65 72 |rrorp t |ilisp-er|
|000008e0| 72 6f 72 2d 66 69 6c 74 | 65 72 20 69 6c 69 73 70 |ror-filt|er ilisp|
|000008f0| 2d 64 69 73 70 6c 61 79 | 2d 6f 75 74 70 75 74 2d |-display|-output-|
|00000900| 66 75 6e 63 74 69 6f 6e | 5d 20 33 20 28 23 24 20 |function|] 3 (#$ |
|00000910| 2e 20 31 39 35 34 29 5d | 29 0a 23 40 33 35 20 44 |. 1954)]|).#@35 D|
|00000920| 65 6c 65 74 65 20 74 68 | 65 20 74 79 70 65 6f 75 |elete th|e typeou|
|00000930| 74 20 77 69 6e 64 6f 77 | 2c 20 69 66 20 61 6e 79 |t window|, if any|
|00000940| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6c 69 |..(defal|ias 'ili|
|00000950| 73 70 2d 62 75 72 79 2d | 6f 75 74 70 75 74 20 23 |sp-bury-|output #|
|00000960| 5b 6e 69 6c 20 22 c0 20 | 89 19 ad 83 c2 09 21 1b |[nil ". |......!.|
|00000970| 09 ab 84 c4 09 21 88 0b | ad 83 c5 0b 21 2a 87 22 |.....!..|....!*."|
|00000980| 20 5b 69 6c 69 73 70 2d | 6f 75 74 70 75 74 2d 62 | [ilisp-|output-b|
|00000990| 75 66 66 65 72 20 62 75 | 66 66 65 72 20 67 65 74 |uffer bu|ffer get|
|000009a0| 2d 62 75 66 66 65 72 2d | 77 69 6e 64 6f 77 20 77 |-buffer-|window w|
|000009b0| 69 6e 64 6f 77 20 62 75 | 72 79 2d 62 75 66 66 65 |indow bu|ry-buffe|
|000009c0| 72 20 69 6c 69 73 70 2d | 64 65 6c 65 74 65 2d 77 |r ilisp-|delete-w|
|000009d0| 69 6e 64 6f 77 5d 20 33 | 20 28 23 24 20 2e 20 32 |indow] 3| (#$ . 2|
|000009e0| 33 33 35 29 20 6e 69 6c | 5d 29 0a 23 40 34 35 20 |335) nil|]).#@45 |
|000009f0| 4d 61 6b 65 20 74 79 70 | 65 6f 75 74 20 76 69 73 |Make typ|eout vis|
|00000a00| 69 62 6c 65 2c 20 69 66 | 20 69 74 20 69 73 20 6e |ible, if| it is n|
|00000a10| 6f 74 20 61 6c 72 65 61 | 64 79 2e 1f 0a 28 64 65 |ot alrea|dy...(de|
|00000a20| 66 61 6c 69 61 73 20 27 | 69 6c 69 73 70 2d 73 68 |falias '|ilisp-sh|
|00000a30| 6f 77 2d 6f 75 74 70 75 | 74 20 23 5b 28 26 6f 70 |ow-outpu|t #[(&op|
|00000a40| 74 69 6f 6e 61 6c 20 62 | 75 66 66 65 72 29 20 22 |tional b|uffer) "|
|00000a50| 08 ae 82 c1 20 89 18 ad | 83 c2 08 21 29 87 22 20 |.... ...|...!)." |
|00000a60| 5b 62 75 66 66 65 72 20 | 69 6c 69 73 70 2d 6f 75 |[buffer |ilisp-ou|
|00000a70| 74 70 75 74 2d 62 75 66 | 66 65 72 20 69 6c 69 73 |tput-buf|fer ilis|
|00000a80| 70 2d 64 69 73 70 6c 61 | 79 2d 62 75 66 66 65 72 |p-displa|y-buffer|
|00000a90| 2d 69 6e 2d 74 79 70 65 | 6f 75 74 2d 77 69 6e 64 |-in-type|out-wind|
|00000aa0| 6f 77 5d 20 33 20 28 23 | 24 20 2e 20 32 35 34 34 |ow] 3 (#|$ . 2544|
|00000ab0| 29 20 6e 69 6c 5d 29 0a | 23 40 34 31 20 44 65 6c |) nil]).|#@41 Del|
|00000ac0| 65 74 65 20 61 20 77 69 | 6e 64 6f 77 20 77 69 74 |ete a wi|ndow wit|
|00000ad0| 68 20 6d 69 6e 69 6d 61 | 6c 20 72 65 64 69 73 70 |h minima|l redisp|
|00000ae0| 6c 61 79 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |lay...(d|efalias |
|00000af0| 27 69 6c 69 73 70 2d 64 | 65 6c 65 74 65 2d 77 69 |'ilisp-d|elete-wi|
|00000b00| 6e 64 6f 77 20 23 5b 28 | 77 69 6e 64 6f 77 29 20 |ndow #[(|window) |
|00000b10| 22 c0 09 21 c2 09 21 1b | 1c c5 09 21 88 0b ad a7 |"..!..!.|...!....|
|00000b20| 0b 09 61 3f ad a1 c6 20 | 1e 07 8a c8 0b 21 88 c9 |..a?... |.....!..|
|00000b30| 20 71 88 ca 20 62 88 cb | 0c 5b 21 88 cc 0b 60 5c | q.. b..|.[!...`\|
|00000b40| 22 88 29 c8 0e 07 21 29 | 2a 87 22 20 5b 77 69 6e |".)...!)|*." [win|
|00000b50| 64 6f 77 2d 68 65 69 67 | 68 74 20 77 69 6e 64 6f |dow-heig|ht windo|
|00000b60| 77 20 69 6c 69 73 70 2d | 66 69 6e 64 2d 6c 6f 77 |w ilisp-|find-low|
|00000b70| 65 72 2d 77 69 6e 64 6f | 77 20 6c 6f 77 65 72 2d |er-windo|w lower-|
|00000b80| 77 69 6e 64 6f 77 20 68 | 65 69 67 68 74 20 64 65 |window h|eight de|
|00000b90| 6c 65 74 65 2d 77 69 6e | 64 6f 77 20 73 65 6c 65 |lete-win|dow sele|
|00000ba0| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 6f 6c 64 2d |cted-win|dow old-|
|00000bb0| 77 69 6e 64 6f 77 20 73 | 65 6c 65 63 74 2d 77 69 |window s|elect-wi|
|00000bc0| 6e 64 6f 77 20 77 69 6e | 64 6f 77 2d 62 75 66 66 |ndow win|dow-buff|
|00000bd0| 65 72 20 77 69 6e 64 6f | 77 2d 73 74 61 72 74 20 |er windo|w-start |
|00000be0| 76 65 72 74 69 63 61 6c | 2d 6d 6f 74 69 6f 6e 20 |vertical|-motion |
|00000bf0| 73 65 74 2d 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |set-wind|ow-start|
|00000c00| 5d 20 33 20 28 23 24 20 | 2e 20 32 37 34 39 29 5d |] 3 (#$ |. 2749)]|
|00000c10| 29 0a 23 40 33 36 20 53 | 63 72 6f 6c 6c 20 74 68 |).#@36 S|croll th|
|00000c20| 65 20 74 79 70 65 6f 75 | 74 2d 77 69 6e 64 6f 77 |e typeou|t-window|
|00000c30| 2c 20 69 66 20 61 6e 79 | 2e 1f 0a 28 64 65 66 61 |, if any|...(defa|
|00000c40| 6c 69 61 73 20 27 69 6c | 69 73 70 2d 73 63 72 6f |lias 'il|isp-scro|
|00000c50| 6c 6c 2d 6f 75 74 70 75 | 74 20 23 5b 28 26 6f 70 |ll-outpu|t #[(&op|
|00000c60| 74 69 6f 6e 61 6c 20 6c | 69 6e 65 73 29 20 22 c0 |tional l|ines) ".|
|00000c70| 20 89 19 ad 83 c2 09 21 | 1b c4 20 1d 0b ad 91 c6 | ......!|.. .....|
|00000c80| 8e c7 0b 21 88 09 71 88 | c8 1e 09 ca 0e 0b 21 2a |...!..q.|......!*|
|00000c90| 2b 87 22 20 5b 69 6c 69 | 73 70 2d 6f 75 74 70 75 |+." [ili|sp-outpu|
|00000ca0| 74 2d 62 75 66 66 65 72 | 20 62 75 66 66 65 72 20 |t-buffer| buffer |
|00000cb0| 67 65 74 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |get-buff|er-windo|
|00000cc0| 77 20 77 69 6e 64 6f 77 | 20 73 65 6c 65 63 74 65 |w window| selecte|
|00000cd0| 64 2d 77 69 6e 64 6f 77 | 20 6f 6c 64 2d 77 69 6e |d-window| old-win|
|00000ce0| 64 6f 77 20 28 28 73 65 | 6c 65 63 74 2d 77 69 6e |dow ((se|lect-win|
|00000cf0| 64 6f 77 20 6f 6c 64 2d | 77 69 6e 64 6f 77 29 29 |dow old-|window))|
|00000d00| 20 73 65 6c 65 63 74 2d | 77 69 6e 64 6f 77 20 6e | select-|window n|
|00000d10| 69 6c 20 73 63 72 6f 6c | 6c 2d 69 6e 2d 70 6c 61 |il scrol|l-in-pla|
|00000d20| 63 65 20 73 63 72 6f 6c | 6c 2d 75 70 20 6c 69 6e |ce scrol|l-up lin|
|00000d30| 65 73 5d 20 33 20 28 23 | 24 20 2e 20 33 30 39 35 |es] 3 (#|$ . 3095|
|00000d40| 29 20 22 50 22 5d 29 0a | 23 40 35 31 20 47 72 6f |) "P"]).|#@51 Gro|
|00000d50| 77 20 74 68 65 20 74 79 | 70 65 6f 75 74 20 77 69 |w the ty|peout wi|
|00000d60| 6e 64 6f 77 20 62 79 20 | 41 52 47 20 28 64 65 66 |ndow by |ARG (def|
|00000d70| 61 75 6c 74 20 31 29 20 | 6c 69 6e 65 73 2e 1f 0a |ault 1) |lines...|
|00000d80| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6c 69 73 70 |(defalia|s 'ilisp|
|00000d90| 2d 67 72 6f 77 2d 6f 75 | 74 70 75 74 20 23 5b 28 |-grow-ou|tput #[(|
|00000da0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 29 20 22 c0 20 |&optiona|l n) ". |
|00000db0| 89 19 ad 83 c2 09 21 1b | c4 20 1d 0b ad 8b c6 8e |......!.|. ......|
|00000dc0| c7 0b 21 88 c8 0e 09 21 | 29 2b 87 22 20 5b 69 6c |..!....!|)+." [il|
|00000dd0| 69 73 70 2d 6f 75 74 70 | 75 74 2d 62 75 66 66 65 |isp-outp|ut-buffe|
|00000de0| 72 20 62 75 66 66 65 72 | 20 67 65 74 2d 62 75 66 |r buffer| get-buf|
|00000df0| 66 65 72 2d 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |fer-wind|ow windo|
|00000e00| 77 20 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |w select|ed-windo|
|00000e10| 77 20 6f 6c 64 2d 77 69 | 6e 64 6f 77 20 28 28 62 |w old-wi|ndow ((b|
|00000e20| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 21 ab 84 c2 |yte-code| "..!...|
|00000e30| 09 21 88 c0 87 22 20 5b | 69 6c 69 73 70 2d 77 69 |.!..." [|ilisp-wi|
|00000e40| 6e 64 6f 77 2d 6c 69 76 | 65 2d 70 20 6f 6c 64 2d |ndow-liv|e-p old-|
|00000e50| 77 69 6e 64 6f 77 20 73 | 65 6c 65 63 74 2d 77 69 |window s|elect-wi|
|00000e60| 6e 64 6f 77 5d 20 32 29 | 29 20 73 65 6c 65 63 74 |ndow] 2)|) select|
|00000e70| 2d 77 69 6e 64 6f 77 20 | 65 6e 6c 61 72 67 65 2d |-window |enlarge-|
|00000e80| 77 69 6e 64 6f 77 20 6e | 5d 20 33 20 28 23 24 20 |window n|] 3 (#$ |
|00000e90| 2e 20 33 34 30 35 29 20 | 22 70 22 5d 29 0a 28 64 |. 3405) |"p"]).(d|
|00000ea0| 65 66 61 6c 69 61 73 20 | 27 69 6c 69 73 70 2d 74 |efalias |'ilisp-t|
|00000eb0| 72 69 6d 2d 62 6c 61 6e | 6b 2d 6c 69 6e 65 73 20 |rim-blan|k-lines |
|00000ec0| 23 5b 6e 69 6c 20 22 65 | 62 88 c0 c1 21 ab 84 c2 |#[nil "e|b...!...|
|00000ed0| c3 21 88 64 62 88 c4 c5 | 78 88 60 64 57 ad 84 60 |.!.db...|x.`dW..`|
|00000ee0| 54 64 7c 87 22 20 5b 6c | 6f 6f 6b 69 6e 67 2d 61 |Td|." [l|ooking-a|
|00000ef0| 74 20 22 5c 6e 2b 22 20 | 72 65 70 6c 61 63 65 2d |t "\n+" |replace-|
|00000f00| 6d 61 74 63 68 20 22 22 | 20 22 5c 6e 22 20 6e 69 |match ""| "\n" ni|
|00000f10| 6c 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |l] 2]).(|defalias|
|00000f20| 20 27 69 6c 69 73 70 2d | 77 72 69 74 65 2d 73 74 | 'ilisp-|write-st|
|00000f30| 72 69 6e 67 2d 74 6f 2d | 62 75 66 66 65 72 20 23 |ring-to-|buffer #|
|00000f40| 5b 28 62 75 66 66 65 72 | 20 73 74 72 69 6e 67 29 |[(buffer| string)|
|00000f50| 20 22 8a 08 71 88 c1 20 | 88 5c 6e 0b 61 ac 83 0b | "..q.. |.\n.a...|
|00000f60| 20 88 c4 15 c6 0e 07 08 | 5c 22 88 c8 20 88 65 62 | .......|\".. .eb|
|00000f70| 29 87 22 20 5b 62 75 66 | 66 65 72 20 65 72 61 73 |)." [buf|fer eras|
|00000f80| 65 2d 62 75 66 66 65 72 | 20 6d 61 6a 6f 72 2d 6d |e-buffer| major-m|
|00000f90| 6f 64 65 20 69 6c 69 73 | 70 2d 6f 75 74 70 75 74 |ode ilis|p-output|
|00000fa0| 2d 62 75 66 66 65 72 2d | 6d 61 6a 6f 72 2d 6d 6f |-buffer-|major-mo|
|00000fb0| 64 65 20 74 20 69 6c 69 | 73 70 2d 6f 75 74 70 75 |de t ili|sp-outpu|
|00000fc0| 74 2d 6d 6f 64 65 20 70 | 72 69 6e 63 20 73 74 72 |t-mode p|rinc str|
|00000fd0| 69 6e 67 20 69 6c 69 73 | 70 2d 74 72 69 6d 2d 62 |ing ilis|p-trim-b|
|00000fe0| 6c 61 6e 6b 2d 6c 69 6e | 65 73 5d 20 33 5d 29 0a |lank-lin|es] 3]).|
|00000ff0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6c 69 73 70 |(defalia|s 'ilisp|
|00001000| 2d 64 65 73 69 72 65 64 | 2d 68 65 69 67 68 74 20 |-desired|-height |
|00001010| 23 5b 28 62 75 66 66 65 | 72 2d 6f 72 2d 77 69 6e |#[(buffe|r-or-win|
|00001020| 64 6f 77 29 20 22 c0 09 | 21 ab 85 c2 09 21 aa 88 |dow) "..|!....!..|
|00001030| c3 09 21 ad 83 c4 09 21 | 1d 0e 06 0e 07 0e 08 0d |..!....!|........|
|00001040| 5d 5e 5d 29 87 22 20 5b | 62 75 66 66 65 72 70 20 |]^])." [|bufferp |
|00001050| 62 75 66 66 65 72 2d 6f | 72 2d 77 69 6e 64 6f 77 |buffer-o|r-window|
|00001060| 20 69 6c 69 73 70 2d 6e | 65 65 64 65 64 2d 62 75 | ilisp-n|eeded-bu|
|00001070| 66 66 65 72 2d 68 65 69 | 67 68 74 20 77 69 6e 64 |ffer-hei|ght wind|
|00001080| 6f 77 70 20 69 6c 69 73 | 70 2d 6e 65 65 64 65 64 |owp ilis|p-needed|
|00001090| 2d 77 69 6e 64 6f 77 2d | 68 65 69 67 68 74 20 68 |-window-|height h|
|000010a0| 65 69 67 68 74 20 77 69 | 6e 64 6f 77 2d 6d 69 6e |eight wi|ndow-min|
|000010b0| 2d 68 65 69 67 68 74 20 | 69 6c 69 73 70 2d 6f 75 |-height |ilisp-ou|
|000010c0| 74 70 75 74 2d 6d 61 78 | 2d 68 65 69 67 68 74 20 |tput-max|-height |
|000010d0| 69 6c 69 73 70 2d 6f 75 | 74 70 75 74 2d 6d 69 6e |ilisp-ou|tput-min|
|000010e0| 2d 68 65 69 67 68 74 5d | 20 34 5d 29 0a 28 64 65 |-height]| 4]).(de|
|000010f0| 66 61 6c 69 61 73 20 27 | 69 6c 69 73 70 2d 6e 65 |falias '|ilisp-ne|
|00001100| 65 64 65 64 2d 62 75 66 | 66 65 72 2d 68 65 69 67 |eded-buf|fer-heig|
|00001110| 68 74 20 23 5b 28 62 75 | 66 66 65 72 29 20 22 8a |ht #[(bu|ffer) ".|
|00001120| 08 71 88 c1 65 64 5c 22 | 54 29 87 22 20 5b 62 75 |.q..ed\"|T)." [bu|
|00001130| 66 66 65 72 20 63 6f 75 | 6e 74 2d 6c 69 6e 65 73 |ffer cou|nt-lines|
|00001140| 5d 20 33 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 3]).(d|efalias |
|00001150| 27 69 6c 69 73 70 2d 6e | 65 65 64 65 64 2d 77 69 |'ilisp-n|eeded-wi|
|00001160| 6e 64 6f 77 2d 68 65 69 | 67 68 74 20 23 5b 28 77 |ndow-hei|ght #[(w|
|00001170| 69 6e 64 6f 77 29 20 22 | c0 8b 87 22 20 5b 28 28 |indow) "|..." [((|
|00001180| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 21 88 8a |byte-cod|e "..!..|
|00001190| c2 20 71 88 8a 65 62 88 | c3 c4 21 29 c5 5c 5c 29 |. q..eb.|..!).\\)|
|000011a0| 87 22 20 5b 73 65 6c 65 | 63 74 2d 77 69 6e 64 6f |." [sele|ct-windo|
|000011b0| 77 20 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 2d |w window| window-|
|000011c0| 62 75 66 66 65 72 20 76 | 65 72 74 69 63 61 6c 2d |buffer v|ertical-|
|000011d0| 6d 6f 74 69 6f 6e 20 31 | 30 30 30 20 33 5d 20 32 |motion 1|000 3] 2|
|000011e0| 29 29 5d 20 31 5d 29 0a | 28 64 65 66 61 6c 69 61 |))] 1]).|(defalia|
|000011f0| 73 20 27 69 6c 69 73 70 | 2d 73 68 72 69 6e 6b 2d |s 'ilisp|-shrink-|
|00001200| 77 72 61 70 2d 77 69 6e | 64 6f 77 20 23 5b 28 77 |wrap-win|dow #[(w|
|00001210| 69 6e 64 6f 77 29 20 22 | c0 20 c1 5c 6e 21 1b 1c |indow) "|. .\n!..|
|00001220| c5 5c 6e 21 88 c6 5c 6e | 21 1e 07 c8 5c 6e 21 89 |.\n!..\n|!...\n!.|
|00001230| 1e 09 0e 07 5a 1e 5c 6e | cb 0e 5c 6e 21 88 0b 71 |....Z.\n|..\n!..q|
|00001240| 88 65 62 88 cc 5c 6e 21 | 89 1e 0d ab a6 c5 0e 0d |.eb..\n!|........|
|00001250| 21 88 60 1e 0e cf 20 62 | 88 d0 0e 5c 6e 21 88 d1 |!.`... b|...\n!..|
|00001260| 0e 0d 60 5c 22 88 0e 0e | 62 88 d2 0e 0e 21 ac 84 |..`\"...|b....!..|
|00001270| d3 d4 21 88 29 29 d5 0c | 21 ad 83 c5 0c 21 2d 87 |..!.))..|!....!-.|
|00001280| 22 20 5b 73 65 6c 65 63 | 74 65 64 2d 77 69 6e 64 |" [selec|ted-wind|
|00001290| 6f 77 20 77 69 6e 64 6f | 77 2d 62 75 66 66 65 72 |ow windo|w-buffer|
|000012a0| 20 77 69 6e 64 6f 77 20 | 62 75 66 66 65 72 20 70 | window |buffer p|
|000012b0| 72 65 76 69 6f 75 73 6c | 79 2d 73 65 6c 65 63 74 |reviousl|y-select|
|000012c0| 65 64 2d 77 69 6e 64 6f | 77 20 73 65 6c 65 63 74 |ed-windo|w select|
|000012d0| 2d 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 68 |-window |window-h|
|000012e0| 65 69 67 68 74 20 63 75 | 72 72 65 6e 74 2d 68 65 |eight cu|rrent-he|
|000012f0| 69 67 68 74 20 69 6c 69 | 73 70 2d 64 65 73 69 72 |ight ili|sp-desir|
|00001300| 65 64 2d 68 65 69 67 68 | 74 20 64 65 73 69 72 65 |ed-heigh|t desire|
|00001310| 64 2d 68 65 69 67 68 74 | 20 64 65 6c 74 61 20 65 |d-height| delta e|
|00001320| 6e 6c 61 72 67 65 2d 77 | 69 6e 64 6f 77 20 69 6c |nlarge-w|indow il|
|00001330| 69 73 70 2d 66 69 6e 64 | 2d 6c 6f 77 65 72 2d 77 |isp-find|-lower-w|
|00001340| 69 6e 64 6f 77 20 6c 6f | 77 65 72 2d 77 69 6e 64 |indow lo|wer-wind|
|00001350| 6f 77 20 6f 6c 64 2d 70 | 6f 69 6e 74 20 77 69 6e |ow old-p|oint win|
|00001360| 64 6f 77 2d 73 74 61 72 | 74 20 76 65 72 74 69 63 |dow-star|t vertic|
|00001370| 61 6c 2d 6d 6f 74 69 6f | 6e 20 73 65 74 2d 77 69 |al-motio|n set-wi|
|00001380| 6e 64 6f 77 2d 73 74 61 | 72 74 20 70 6f 73 2d 76 |ndow-sta|rt pos-v|
|00001390| 69 73 69 62 6c 65 2d 69 | 6e 2d 77 69 6e 64 6f 77 |isible-i|n-window|
|000013a0| 2d 70 20 72 65 63 65 6e | 74 65 72 20 30 20 69 6c |-p recen|ter 0 il|
|000013b0| 69 73 70 2d 77 69 6e 64 | 6f 77 2d 6c 69 76 65 2d |isp-wind|ow-live-|
|000013c0| 70 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |p] 4]).(|defalias|
|000013d0| 20 27 69 6c 69 73 70 2d | 77 69 6e 64 6f 77 2d 6c | 'ilisp-|window-l|
|000013e0| 69 76 65 2d 70 20 23 5b | 28 77 69 6e 64 6f 77 29 |ive-p #[|(window)|
|000013f0| 20 22 c0 20 89 19 1a c3 | 1c 5c 6e ab 9b 0d 5c 6e | ". ....|.\n...\n|
|00001400| 61 ab 87 c6 14 c3 89 12 | aa 72 c7 5c 6e c8 5c 22 |a.......|.r.\n.\"|
|00001410| 89 12 09 61 ab 67 c3 89 | 12 ac 65 0c 2b 87 22 20 |...a.g..|..e.+." |
|00001420| 5b 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 |[selecte|d-window|
|00001430| 20 69 6e 69 74 69 61 6c | 2d 77 69 6e 64 6f 77 20 | initial|-window |
|00001440| 77 69 6e 20 6e 69 6c 20 | 66 6f 75 6e 64 20 77 69 |win nil |found wi|
|00001450| 6e 64 6f 77 20 74 20 6e | 65 78 74 2d 77 69 6e 64 |ndow t n|ext-wind|
|00001460| 6f 77 20 6e 6f 5d 20 34 | 5d 29 0a 23 40 31 32 30 |ow no] 4|]).#@120|
|00001470| 20 46 69 6e 64 20 74 68 | 65 20 77 69 6e 64 6f 77 | Find th|e window|
|00001480| 20 64 69 72 65 63 74 6c | 79 20 62 65 6c 6f 77 20 | directl|y below |
|00001490| 75 73 2c 20 69 66 20 61 | 6e 79 2e 20 20 54 68 69 |us, if a|ny. Thi|
|000014a0| 73 20 69 73 20 70 72 6f | 62 61 62 6c 79 20 74 68 |s is pro|bably th|
|000014b0| 65 20 0a 20 77 69 6e 64 | 6f 77 20 66 72 6f 6d 20 |e . wind|ow from |
|000014c0| 77 68 69 63 68 20 65 6e | 6c 61 72 67 65 2d 77 69 |which en|large-wi|
|000014d0| 6e 64 6f 77 20 77 6f 75 | 6c 64 20 73 74 65 61 6c |ndow wou|ld steal|
|000014e0| 20 6c 69 6e 65 73 2e 1f | 0a 28 64 65 66 61 6c 69 | lines..|.(defali|
|000014f0| 61 73 20 27 69 6c 69 73 | 70 2d 66 69 6e 64 2d 6c |as 'ilis|p-find-l|
|00001500| 6f 77 65 72 2d 77 69 6e | 64 6f 77 20 23 5b 28 77 |ower-win|dow #[(w|
|00001510| 69 6e 64 6f 77 29 20 22 | c0 c1 5c 6e 5c 22 ab 8a |indow) "|..\n\"..|
|00001520| 0b c4 55 ab ba 0d c6 57 | ab b5 c7 c8 0e 09 21 38 |..U....W|......!8|
|00001530| 1e 5c 6e cb 1e 0c 0e 09 | 1e 0d ce 0e 0d cf 5c 22 |.\n.....|......\"|
|00001540| 89 16 0d 0e 09 61 ac 95 | c8 0e 0d 21 41 40 0e 5c |.....a..|...!A@.\|
|00001550| 6e 55 ab 68 0e 0c ac 64 | 0e 0d 16 0c aa 5e 0e 0c |nU.h...d|.....^..|
|00001560| 2b 87 d0 0e 09 21 87 22 | 20 5b 73 74 72 69 6e 67 |+....!."| [string|
|00001570| 2d 6d 61 74 63 68 20 22 | 58 45 6d 61 63 73 22 20 |-match "|XEmacs" |
|00001580| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 65 6d |emacs-ve|rsion em|
|00001590| 61 63 73 2d 6d 61 6a 6f | 72 2d 76 65 72 73 69 6f |acs-majo|r-versio|
|000015a0| 6e 20 31 39 20 65 6d 61 | 63 73 2d 6d 69 6e 6f 72 |n 19 ema|cs-minor|
|000015b0| 2d 76 65 72 73 69 6f 6e | 20 31 32 20 33 20 77 69 |-version| 12 3 wi|
|000015c0| 6e 64 6f 77 2d 65 64 67 | 65 73 20 77 69 6e 64 6f |ndow-edg|es windo|
|000015d0| 77 20 62 6f 74 74 6f 6d | 20 6e 69 6c 20 77 69 6e |w bottom| nil win|
|000015e0| 64 6f 77 2a 20 77 69 6e | 20 6e 65 78 74 2d 77 69 |dow* win| next-wi|
|000015f0| 6e 64 6f 77 20 6e 6f 20 | 6e 65 78 74 2d 76 65 72 |ndow no |next-ver|
|00001600| 74 69 63 61 6c 2d 77 69 | 6e 64 6f 77 5d 20 33 20 |tical-wi|ndow] 3 |
|00001610| 28 23 24 20 2e 20 35 32 | 33 33 29 5d 29 0a 23 40 |(#$ . 52|33)]).#@|
|00001620| 35 39 20 52 65 74 75 72 | 6e 20 74 68 65 20 6c 65 |59 Retur|n the le|
|00001630| 66 74 6d 6f 73 74 20 74 | 6f 70 6d 6f 73 74 20 77 |ftmost t|opmost w|
|00001640| 69 6e 64 6f 77 20 6f 6e | 20 74 68 65 20 63 75 72 |indow on| the cur|
|00001650| 72 65 6e 74 20 73 63 72 | 65 65 6e 2e 1f 0a 28 64 |rent scr|een...(d|
|00001660| 65 66 61 6c 69 61 73 20 | 27 69 6c 69 73 70 2d 66 |efalias |'ilisp-f|
|00001670| 69 6e 64 2d 74 6f 70 2d | 6c 65 66 74 2d 6d 6f 73 |ind-top-|left-mos|
|00001680| 74 2d 77 69 6e 64 6f 77 | 20 23 5b 6e 69 6c 20 22 |t-window| #[nil "|
|00001690| c0 c1 5c 6e 5c 22 ab 8a | 0b c4 55 ab d8 0d c6 57 |..\n\"..|..U....W|
|000016a0| ab d3 c7 20 1e 08 c9 0e | 08 21 1e 5c 6e cb 1e 0c |... ....|.!.\n...|
|000016b0| cb 1e 0d 0e 08 1e 0e cf | 0e 0c d0 5c 22 89 16 0c |........|...\"...|
|000016c0| 0e 0e 61 ac ae c9 0e 0c | 21 89 16 0d 41 40 0e 5c |..a.....|!...A@.\|
|000016d0| 6e 41 40 57 ac 94 0e 0d | 41 40 0e 5c 6e 41 40 55 |nA@W....|A@.\nA@U|
|000016e0| ab 58 0e 0d 40 0e 5c 6e | 40 57 ab 4f 0e 0c 16 08 |.X..@.\n|@W.O....|
|000016f0| 0e 0d 16 5c 6e aa 45 0e | 08 2d 87 d1 d2 20 d3 5c |...\n.E.|.-... .\|
|00001700| 22 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |"." [str|ing-matc|
|00001710| 68 20 22 58 45 6d 61 63 | 73 22 20 65 6d 61 63 73 |h "XEmac|s" emacs|
|00001720| 2d 76 65 72 73 69 6f 6e | 20 65 6d 61 63 73 2d 6d |-version| emacs-m|
|00001730| 61 6a 6f 72 2d 76 65 72 | 73 69 6f 6e 20 31 39 20 |ajor-ver|sion 19 |
|00001740| 65 6d 61 63 73 2d 6d 69 | 6e 6f 72 2d 76 65 72 73 |emacs-mi|nor-vers|
|00001750| 69 6f 6e 20 31 32 20 73 | 65 6c 65 63 74 65 64 2d |ion 12 s|elected-|
|00001760| 77 69 6e 64 6f 77 20 77 | 69 6e 64 6f 77 2a 20 77 |window w|indow* w|
|00001770| 69 6e 64 6f 77 2d 65 64 | 67 65 73 20 65 64 67 65 |indow-ed|ges edge|
|00001780| 73 2a 20 6e 69 6c 20 77 | 69 6e 20 65 64 67 65 73 |s* nil w|in edges|
|00001790| 20 73 74 61 72 74 2d 77 | 69 6e 64 6f 77 20 6e 65 | start-w|indow ne|
|000017a0| 78 74 2d 77 69 6e 64 6f | 77 20 6e 6f 20 66 72 61 |xt-windo|w no fra|
|000017b0| 6d 65 2d 68 69 67 68 65 | 73 74 2d 77 69 6e 64 6f |me-highe|st-windo|
|000017c0| 77 20 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |w select|ed-frame|
|000017d0| 20 30 5d 20 34 20 28 23 | 24 20 2e 20 35 36 36 37 | 0] 4 (#|$ . 5667|
|000017e0| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |)]).(def|alias 'i|
|000017f0| 6c 69 73 70 2d 77 69 6e | 64 6f 77 2d 74 6f 2d 75 |lisp-win|dow-to-u|
|00001800| 73 65 2d 66 6f 72 2d 74 | 79 70 65 6f 75 74 20 23 |se-for-t|ypeout #|
|00001810| 5b 6e 69 6c 20 22 c0 20 | 87 22 20 5b 69 6c 69 73 |[nil ". |." [ilis|
|00001820| 70 2d 66 69 6e 64 2d 74 | 6f 70 2d 6c 65 66 74 2d |p-find-t|op-left-|
|00001830| 6d 6f 73 74 2d 77 69 6e | 64 6f 77 5d 20 31 5d 29 |most-win|dow] 1])|
|00001840| 0a 23 40 35 34 20 44 69 | 73 70 6c 61 79 20 62 75 |.#@54 Di|splay bu|
|00001850| 66 66 65 72 20 69 6e 20 | 61 20 77 69 6e 64 6f 77 |ffer in |a window|
|00001860| 20 61 74 20 74 68 65 20 | 74 6f 70 20 6f 66 20 74 | at the |top of t|
|00001870| 68 65 20 73 63 72 65 65 | 6e 2e 1f 0a 28 64 65 66 |he scree|n...(def|
|00001880| 61 6c 69 61 73 20 27 69 | 6c 69 73 70 2d 64 69 73 |alias 'i|lisp-dis|
|00001890| 70 6c 61 79 2d 62 75 66 | 66 65 72 2d 69 6e 2d 74 |play-buf|fer-in-t|
|000018a0| 79 70 65 6f 75 74 2d 77 | 69 6e 64 6f 77 20 23 5b |ypeout-w|indow #[|
|000018b0| 28 62 75 66 66 65 72 29 | 20 22 c0 09 21 89 1a ac |(buffer)| "..!...|
|000018c0| c8 c3 20 1c c5 1e 06 c7 | 20 1e 08 c9 09 21 1e 5c |.. .....| ....!.\|
|000018d0| 6e cb 0c 21 88 c5 1e 0c | 0e 5c 6e cd 20 0e 0e 5a |n..!....|.\n. ..Z|
|000018e0| 56 ab 85 0c 16 06 aa 86 | cf 0e 5c 6e 21 16 06 29 |V.......|..\n!..)|
|000018f0| d0 0c 09 5c 22 88 d1 0c | 21 88 0e 08 0c 61 ab 86 |...\"...|!....a..|
|00001900| cb 0e 06 21 aa 84 cb 0e | 08 21 2c aa 83 d1 5c 6e |...!....|.!,...\n|
|00001910| 21 29 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |!)." [ge|t-buffer|
|00001920| 2d 77 69 6e 64 6f 77 20 | 62 75 66 66 65 72 20 77 |-window |buffer w|
|00001930| 69 6e 64 6f 77 20 69 6c | 69 73 70 2d 77 69 6e 64 |indow il|isp-wind|
|00001940| 6f 77 2d 74 6f 2d 75 73 | 65 2d 66 6f 72 2d 74 79 |ow-to-us|e-for-ty|
|00001950| 70 65 6f 75 74 20 74 6f | 70 2d 77 69 6e 64 6f 77 |peout to|p-window|
|00001960| 20 6e 69 6c 20 6e 65 77 | 2d 77 69 6e 64 6f 77 20 | nil new|-window |
|00001970| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00001980| 70 72 65 76 69 6f 75 73 | 6c 79 2d 73 65 6c 65 63 |previous|ly-selec|
|00001990| 74 65 64 2d 77 69 6e 64 | 6f 77 20 69 6c 69 73 70 |ted-wind|ow ilisp|
|000019a0| 2d 64 65 73 69 72 65 64 | 2d 68 65 69 67 68 74 20 |-desired|-height |
|000019b0| 64 65 73 69 72 65 64 2d | 68 65 69 67 68 74 20 73 |desired-|height s|
|000019c0| 65 6c 65 63 74 2d 77 69 | 6e 64 6f 77 20 73 70 6c |elect-wi|ndow spl|
|000019d0| 69 74 2d 77 69 6e 64 6f | 77 2d 6b 65 65 70 2d 70 |it-windo|w-keep-p|
|000019e0| 6f 69 6e 74 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |oint win|dow-heig|
|000019f0| 68 74 20 77 69 6e 64 6f | 77 2d 6d 69 6e 2d 68 65 |ht windo|w-min-he|
|00001a00| 69 67 68 74 20 73 70 6c | 69 74 2d 77 69 6e 64 6f |ight spl|it-windo|
|00001a10| 77 2d 76 65 72 74 69 63 | 61 6c 6c 79 20 73 65 74 |w-vertic|ally set|
|00001a20| 2d 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 20 69 |-window-|buffer i|
|00001a30| 6c 69 73 70 2d 73 68 72 | 69 6e 6b 2d 77 72 61 70 |lisp-shr|ink-wrap|
|00001a40| 2d 77 69 6e 64 6f 77 5d | 20 34 20 28 23 24 20 2e |-window]| 4 (#$ .|
|00001a50| 20 36 32 31 34 29 5d 29 | 0a 23 40 32 35 31 20 44 | 6214)])|.#@251 D|
|00001a60| 69 73 70 61 74 63 68 20 | 6f 6e 20 74 68 65 20 76 |ispatch |on the v|
|00001a70| 61 6c 75 65 20 6f 66 20 | 6c 69 73 70 2d 6e 6f 2d |alue of |lisp-no-|
|00001a80| 70 6f 70 70 65 72 3a 0a | 20 6c 69 73 70 2d 6e 6f |popper:.| lisp-no|
|00001a90| 2d 70 6f 70 70 65 72 20 | 3d 20 6e 69 6c 3a 20 20 |-popper |= nil: |
|00001aa0| 64 69 73 70 6c 61 79 20 | 6f 75 74 70 75 74 20 69 |display |output i|
|00001ab0| 6e 20 61 20 74 79 70 65 | 6f 75 74 20 77 69 6e 64 |n a type|out wind|
|00001ac0| 6f 77 2e 0a 20 6c 69 73 | 70 2d 6e 6f 2d 70 6f 70 |ow.. lis|p-no-pop|
|00001ad0| 70 65 72 20 3d 20 74 3a | 20 20 64 69 73 70 6c 61 |per = t:| displa|
|00001ae0| 79 20 6f 75 74 70 75 74 | 20 69 6e 20 74 68 65 20 |y output| in the |
|00001af0| 69 6c 69 73 70 20 62 75 | 66 66 65 72 0a 20 6f 74 |ilisp bu|ffer. ot|
|00001b00| 68 65 72 77 69 73 65 3a | 20 64 69 73 70 6c 61 79 |herwise:| display|
|00001b10| 20 6f 6e 65 2d 6c 69 6e | 65 20 6f 75 74 70 75 74 | one-lin|e output|
|00001b20| 20 69 6e 20 74 68 65 20 | 65 63 68 6f 20 61 72 65 | in the |echo are|
|00001b30| 61 2c 20 6d 75 6c 74 69 | 6c 69 6e 65 20 6f 75 74 |a, multi|line out|
|00001b40| 70 75 74 20 69 6e 20 74 | 68 65 20 69 6c 69 73 70 |put in t|he ilisp|
|00001b50| 20 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c | buffer.|..(defal|
|00001b60| 69 61 73 20 27 69 6c 69 | 73 70 2d 64 69 73 70 6c |ias 'ili|sp-displ|
|00001b70| 61 79 2d 6f 75 74 70 75 | 74 2d 64 65 66 61 75 6c |ay-outpu|t-defaul|
|00001b80| 74 20 23 5b 28 6f 75 74 | 70 75 74 29 20 22 08 ac |t #[(out|put) "..|
|00001b90| 84 c1 5c 6e 21 87 08 c3 | 61 ab 84 c4 5c 6e 21 87 |..\n!...|a...\n!.|
|00001ba0| c5 5c 6e 21 87 22 20 5b | 6c 69 73 70 2d 6e 6f 2d |.\n!." [|lisp-no-|
|00001bb0| 70 6f 70 70 65 72 20 69 | 6c 69 73 70 2d 64 69 73 |popper i|lisp-dis|
|00001bc0| 70 6c 61 79 2d 6f 75 74 | 70 75 74 2d 69 6e 2d 74 |play-out|put-in-t|
|00001bd0| 79 70 65 6f 75 74 2d 77 | 69 6e 64 6f 77 20 6f 75 |ypeout-w|indow ou|
|00001be0| 74 70 75 74 20 74 20 69 | 6c 69 73 70 2d 64 69 73 |tput t i|lisp-dis|
|00001bf0| 70 6c 61 79 2d 6f 75 74 | 70 75 74 2d 69 6e 2d 6c |play-out|put-in-l|
|00001c00| 69 73 70 2d 6c 69 73 74 | 65 6e 65 72 20 69 6c 69 |isp-list|ener ili|
|00001c10| 73 70 2d 64 69 73 70 6c | 61 79 2d 6f 75 74 70 75 |sp-displ|ay-outpu|
|00001c20| 74 2d 61 64 61 70 74 69 | 76 65 6c 79 5d 20 32 20 |t-adapti|vely] 2 |
|00001c30| 28 23 24 20 2e 20 36 37 | 35 31 29 5d 29 0a 23 40 |(#$ . 67|51)]).#@|
|00001c40| 36 37 20 44 69 73 70 6c | 61 79 20 6f 6e 65 2d 6c |67 Displ|ay one-l|
|00001c50| 69 6e 65 72 73 20 69 6e | 20 74 68 65 20 65 63 68 |iners in| the ech|
|00001c60| 6f 20 61 72 65 61 2c 20 | 6f 74 68 65 72 73 20 69 |o area, |others i|
|00001c70| 6e 20 74 68 65 20 74 79 | 70 65 6f 75 74 20 77 69 |n the ty|peout wi|
|00001c80| 6e 64 6f 77 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ndow..(d|efalias |
|00001c90| 27 69 6c 69 73 70 2d 64 | 69 73 70 6c 61 79 2d 6f |'ilisp-d|isplay-o|
|00001ca0| 75 74 70 75 74 2d 61 64 | 61 70 74 69 76 65 6c 79 |utput-ad|aptively|
|00001cb0| 20 23 5b 28 6f 75 74 70 | 75 74 29 20 22 c0 c1 5c | #[(outp|ut) "..\|
|00001cc0| 6e 5c 22 ac 89 5c 6e 47 | c3 c4 20 21 56 ab 88 c5 |n\"..\nG|.. !V...|
|00001cd0| c6 21 88 c7 5c 6e 21 87 | c8 5c 6e 21 87 22 20 5b |.!..\n!.|.\n!." [|
|00001ce0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 6e |string-m|atch "\n|
|00001cf0| 22 20 6f 75 74 70 75 74 | 20 77 69 6e 64 6f 77 2d |" output| window-|
|00001d00| 77 69 64 74 68 20 6d 69 | 6e 69 62 75 66 66 65 72 |width mi|nibuffer|
|00001d10| 2d 77 69 6e 64 6f 77 20 | 6d 65 73 73 61 67 65 20 |-window |message |
|00001d20| 22 53 65 65 20 61 62 6f | 76 65 2e 22 20 69 6c 69 |"See abo|ve." ili|
|00001d30| 73 70 2d 64 69 73 70 6c | 61 79 2d 6f 75 74 70 75 |sp-displ|ay-outpu|
|00001d40| 74 2d 69 6e 2d 74 79 70 | 65 6f 75 74 2d 77 69 6e |t-in-typ|eout-win|
|00001d50| 64 6f 77 20 69 6c 69 73 | 70 2d 64 69 73 70 6c 61 |dow ilis|p-displa|
|00001d60| 79 2d 6f 75 74 70 75 74 | 2d 69 6e 2d 65 63 68 6f |y-output|-in-echo|
|00001d70| 2d 61 72 65 61 5d 20 33 | 20 28 23 24 20 2e 20 37 |-area] 3| (#$ . 7|
|00001d80| 32 33 35 29 5d 29 0a 23 | 40 36 39 20 44 69 73 70 |235)]).#|@69 Disp|
|00001d90| 6c 61 79 20 6f 75 74 70 | 75 74 20 69 6e 20 61 20 |lay outp|ut in a |
|00001da0| 73 68 72 69 6e 6b 2d 77 | 72 61 70 70 65 64 20 77 |shrink-w|rapped w|
|00001db0| 69 6e 64 6f 77 20 61 74 | 20 74 68 65 20 74 6f 70 |indow at| the top|
|00001dc0| 20 6f 66 20 74 68 65 20 | 73 63 72 65 65 6e 2e 1f | of the |screen..|
|00001dd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 6c 69 73 |.(defali|as 'ilis|
|00001de0| 70 2d 64 69 73 70 6c 61 | 79 2d 6f 75 74 70 75 74 |p-displa|y-output|
|00001df0| 2d 69 6e 2d 74 79 70 65 | 6f 75 74 2d 77 69 6e 64 |-in-type|out-wind|
|00001e00| 6f 77 20 23 5b 28 6f 75 | 74 70 75 74 29 20 22 c0 |ow #[(ou|tput) ".|
|00001e10| c1 21 1a c3 5c 6e 0c 5c | 22 88 c5 5c 6e 21 29 87 |.!..\n.\|"..\n!).|
|00001e20| 22 20 5b 69 6c 69 73 70 | 2d 6f 75 74 70 75 74 2d |" [ilisp|-output-|
|00001e30| 62 75 66 66 65 72 20 74 | 20 62 75 66 66 65 72 20 |buffer t| buffer |
|00001e40| 69 6c 69 73 70 2d 77 72 | 69 74 65 2d 73 74 72 69 |ilisp-wr|ite-stri|
|00001e50| 6e 67 2d 74 6f 2d 62 75 | 66 66 65 72 20 6f 75 74 |ng-to-bu|ffer out|
|00001e60| 70 75 74 20 69 6c 69 73 | 70 2d 64 69 73 70 6c 61 |put ilis|p-displa|
|00001e70| 79 2d 62 75 66 66 65 72 | 2d 69 6e 2d 74 79 70 65 |y-buffer|-in-type|
|00001e80| 6f 75 74 2d 77 69 6e 64 | 6f 77 5d 20 33 20 28 23 |out-wind|ow] 3 (#|
|00001e90| 24 20 2e 20 37 35 36 34 | 29 5d 29 0a 23 40 34 37 |$ . 7564|)]).#@47|
|00001ea0| 20 44 69 73 70 6c 61 79 | 20 6f 75 74 70 75 74 20 | Display| output |
|00001eb0| 61 73 20 61 20 6d 65 73 | 73 61 67 65 20 69 6e 20 |as a mes|sage in |
|00001ec0| 74 68 65 20 65 63 68 6f | 20 61 72 65 61 2e 1f 0a |the echo| area...|
|00001ed0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6c 69 73 70 |(defalia|s 'ilisp|
|00001ee0| 2d 64 69 73 70 6c 61 79 | 2d 6f 75 74 70 75 74 2d |-display|-output-|
|00001ef0| 69 6e 2d 65 63 68 6f 2d | 61 72 65 61 20 23 5b 28 |in-echo-|area #[(|
|00001f00| 6f 75 74 70 75 74 29 20 | 22 c0 20 c1 20 61 ac 83 |output) |". . a..|
|00001f10| c2 20 88 c3 c4 0d 5c 22 | 87 22 20 5b 73 65 6c 65 |. ....\"|." [sele|
|00001f20| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 69 6c 69 73 |cted-win|dow ilis|
|00001f30| 70 2d 6f 75 74 70 75 74 | 2d 77 69 6e 64 6f 77 20 |p-output|-window |
|00001f40| 69 6c 69 73 70 2d 62 75 | 72 79 2d 6f 75 74 70 75 |ilisp-bu|ry-outpu|
|00001f50| 74 20 6d 65 73 73 61 67 | 65 20 22 25 73 22 20 6f |t messag|e "%s" o|
|00001f60| 75 74 70 75 74 5d 20 33 | 20 28 23 24 20 2e 20 37 |utput] 3| (#$ . 7|
|00001f70| 38 34 31 29 5d 29 0a 23 | 40 36 33 20 51 75 6f 74 |841)]).#|@63 Quot|
|00001f80| 65 20 61 6c 6c 20 74 68 | 65 20 6f 63 63 75 72 65 |e all th|e occure|
|00001f90| 6e 63 65 73 20 6f 66 20 | 3f 25 20 69 6e 20 53 54 |nces of |?% in ST|
|00001fa0| 52 49 4e 47 20 69 6e 20 | 61 6e 20 45 4c 69 73 70 |RING in |an ELisp|
|00001fb0| 20 66 61 73 68 69 6f 6e | 2e 1f 0a 28 64 65 66 61 | fashion|...(defa|
|00001fc0| 6c 69 61 73 20 27 69 6c | 69 73 70 2d 71 75 6f 74 |lias 'il|isp-quot|
|00001fd0| 65 2d 25 73 20 23 5b 28 | 73 74 72 69 6e 67 29 20 |e-%s #[(|string) |
|00001fe0| 22 c0 c1 5c 6e c3 23 87 | 22 20 5b 6d 61 70 63 6f |"..\n.#.|" [mapco|
|00001ff0| 6e 63 61 74 20 23 5b 28 | 63 68 61 72 29 20 22 c0 |ncat #[(|char) ".|
|00002000| 09 c2 5c 22 ab 82 c3 87 | c4 09 21 87 22 20 5b 63 |..\"....|..!." [c|
|00002010| 68 61 72 2d 65 71 75 61 | 6c 20 63 68 61 72 20 3f |har-equa|l char ?|
|00002020| 5c 25 20 22 25 25 22 20 | 63 68 61 72 2d 74 6f 2d |\% "%%" |char-to-|
|00002030| 73 74 72 69 6e 67 5d 20 | 33 5d 20 73 74 72 69 6e |string] |3] strin|
|00002040| 67 20 22 22 5d 20 34 20 | 28 23 24 20 2e 20 38 30 |g ""] 4 |(#$ . 80|
|00002050| 36 30 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |60)]).(d|efalias |
|00002060| 27 69 6c 69 73 70 2d 64 | 69 73 70 6c 61 79 2d 6f |'ilisp-d|isplay-o|
|00002070| 75 74 70 75 74 2d 69 6e | 2d 74 65 6d 70 2d 62 75 |utput-in|-temp-bu|
|00002080| 66 66 65 72 20 23 5b 28 | 6f 75 74 70 75 74 29 20 |ffer #[(|output) |
|00002090| 22 08 90 c1 5c 6e 21 91 | 87 22 20 5b 69 6c 69 73 |"...\n!.|." [ilis|
|000020a0| 70 2d 6f 75 74 70 75 74 | 2d 62 75 66 66 65 72 20 |p-output|-buffer |
|000020b0| 70 72 69 6e 63 20 6f 75 | 74 70 75 74 5d 20 33 5d |princ ou|tput] 3]|
|000020c0| 29 0a 23 40 33 36 20 44 | 69 73 70 6c 61 79 20 6f |).#@36 D|isplay o|
|000020d0| 75 74 70 75 74 20 69 6e | 20 74 68 65 20 69 6c 69 |utput in| the ili|
|000020e0| 73 70 20 62 75 66 66 65 | 72 1f 0a 28 64 65 66 61 |sp buffe|r..(defa|
|000020f0| 6c 69 61 73 20 27 69 6c | 69 73 70 2d 64 69 73 70 |lias 'il|isp-disp|
|00002100| 6c 61 79 2d 6f 75 74 70 | 75 74 2d 69 6e 2d 6c 69 |lay-outp|ut-in-li|
|00002110| 73 70 2d 6c 69 73 74 65 | 6e 65 72 20 23 5b 28 6f |sp-liste|ner #[(o|
|00002120| 75 74 70 75 74 29 20 22 | 70 c0 20 19 1a c3 8e c4 |utput) "|p. .....|
|00002130| c5 20 21 88 70 5c 6e 61 | ac 83 5c 6e 16 06 c7 0e |. !.p\na|..\n....|
|00002140| 08 ad 85 c9 0e 08 ca 51 | cb 0e 0c 21 ca 0e 0d 52 |.......Q|...!...R|
|00002150| 21 88 ce 89 16 08 2b 87 | 22 20 5b 73 65 6c 65 63 |!.....+.|" [selec|
|00002160| 74 65 64 2d 77 69 6e 64 | 6f 77 20 77 69 6e 64 6f |ted-wind|ow windo|
|00002170| 77 20 62 75 66 66 65 72 | 20 28 28 62 79 74 65 2d |w buffer| ((byte-|
|00002180| 63 6f 64 65 20 22 c0 09 | 21 ab 87 c2 09 21 88 0b |code "..|!....!..|
|00002190| 71 88 c0 87 22 20 5b 77 | 69 6e 64 6f 77 2d 70 6f |q..." [w|indow-po|
|000021a0| 69 6e 74 20 77 69 6e 64 | 6f 77 20 73 65 6c 65 63 |int wind|ow selec|
|000021b0| 74 2d 77 69 6e 64 6f 77 | 20 62 75 66 66 65 72 5d |t-window| buffer]|
|000021c0| 20 32 29 29 20 6c 69 73 | 70 2d 70 6f 70 2d 74 6f | 2)) lis|p-pop-to|
|000021d0| 2d 62 75 66 66 65 72 20 | 69 6c 69 73 70 2d 62 75 |-buffer |ilisp-bu|
|000021e0| 66 66 65 72 20 69 6c 69 | 73 70 2d 6c 61 73 74 2d |ffer ili|sp-last-|
|000021f0| 62 75 66 66 65 72 20 63 | 6f 6d 69 6e 74 2d 69 6e |buffer c|omint-in|
|00002200| 73 65 72 74 20 69 6c 69 | 73 70 2d 6c 61 73 74 2d |sert ili|sp-last-|
|00002210| 6d 65 73 73 61 67 65 20 | 22 3b 3b 3b 20 22 20 22 |message |";;; " "|
|00002220| 5c 6e 22 20 63 6f 6d 69 | 6e 74 2d 72 65 6d 6f 76 |\n" comi|nt-remov|
|00002230| 65 2d 77 68 69 74 65 73 | 70 61 63 65 20 6f 75 74 |e-whites|pace out|
|00002240| 70 75 74 20 69 6c 69 73 | 70 2d 6c 61 73 74 2d 70 |put ilis|p-last-p|
|00002250| 72 6f 6d 70 74 20 6e 69 | 6c 5d 20 35 20 28 23 24 |rompt ni|l] 5 (#$|
|00002260| 20 2e 20 38 33 39 31 29 | 5d 29 0a 23 40 36 37 20 | . 8391)|]).#@67 |
|00002270| 4c 69 6b 65 20 70 6f 70 | 2d 74 6f 2d 62 75 66 66 |Like pop|-to-buff|
|00002280| 65 72 2c 20 62 75 74 20 | 73 65 6c 65 63 74 20 61 |er, but |select a|
|00002290| 20 73 63 72 65 65 6e 20 | 74 68 61 74 20 62 75 66 | screen |that buf|
|000022a0| 66 65 72 20 77 61 73 20 | 73 68 6f 77 6e 20 69 6e |fer was |shown in|
|000022b0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 69 |...(defa|lias 'li|
|000022c0| 73 70 2d 70 6f 70 2d 74 | 6f 2d 62 75 66 66 65 72 |sp-pop-t|o-buffer|
|000022d0| 20 23 5b 28 62 75 66 66 | 65 72 29 20 22 08 ab 85 | #[(buff|er) "...|
|000022e0| c1 5c 6e 21 aa 83 c3 5c | 6e 21 89 1c ab 86 c5 0c |.\n!...\|n!......|
|000022f0| 21 88 aa c3 08 ab 91 c6 | 8a 5c 6e 71 88 c7 4a 29 |!.......|.\nq..J)|
|00002300| 40 ae 82 c8 20 21 88 aa | a8 0e 09 ca 61 ab a2 c3 |@... !..|....a...|
|00002310| 5c 6e cb 5c 22 89 1e 0c | ad 84 cd 0e 0c 21 1e 0e |\n.\"...|.....!..|
|00002320| cf 0e 0e 21 d0 61 ab 8a | d1 0e 0e 21 88 d2 0e 0e |...!.a..|...!....|
|00002330| 21 88 2a d3 20 88 d4 5c | 6e 21 88 29 5c 6e 71 87 |!.*. ..\|n!.)\nq.|
|00002340| 22 20 5b 69 6c 69 73 70 | 2d 65 70 6f 63 68 2d 72 |" [ilisp|-epoch-r|
|00002350| 75 6e 6e 69 6e 67 20 65 | 70 6f 63 68 3a 3a 67 65 |unning e|poch::ge|
|00002360| 74 2d 62 75 66 66 65 72 | 2d 77 69 6e 64 6f 77 20 |t-buffer|-window |
|00002370| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00002380| 72 2d 77 69 6e 64 6f 77 | 20 69 6c 69 73 70 2d 77 |r-window| ilisp-w|
|00002390| 69 6e 64 6f 77 20 73 65 | 6c 65 63 74 2d 77 69 6e |indow se|lect-win|
|000023a0| 64 6f 77 20 65 70 6f 63 | 68 3a 3a 73 65 6c 65 63 |dow epoc|h::selec|
|000023b0| 74 2d 73 63 72 65 65 6e | 20 61 6c 6c 6f 77 65 64 |t-screen| allowed|
|000023c0| 2d 73 63 72 65 65 6e 73 | 20 65 70 6f 63 68 3a 3a |-screens| epoch::|
|000023d0| 63 75 72 72 65 6e 74 2d | 73 63 72 65 65 6e 20 2b |current-|screen +|
|000023e0| 69 6c 69 73 70 2d 65 6d | 61 63 73 2d 76 65 72 73 |ilisp-em|acs-vers|
|000023f0| 69 6f 6e 2d 69 64 2b 20 | 66 73 66 2d 31 39 20 74 |ion-id+ |fsf-19 t|
|00002400| 20 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 2d 66 | window |window-f|
|00002410| 72 61 6d 65 20 66 72 61 | 6d 65 20 66 72 61 6d 65 |rame fra|me frame|
|00002420| 70 20 78 20 72 61 69 73 | 65 2d 66 72 61 6d 65 20 |p x rais|e-frame |
|00002430| 73 65 6c 65 63 74 2d 66 | 72 61 6d 65 20 69 6c 69 |select-f|rame ili|
|00002440| 73 70 2d 62 75 72 79 2d | 6f 75 74 70 75 74 20 70 |sp-bury-|output p|
|00002450| 6f 70 2d 74 6f 2d 62 75 | 66 66 65 72 5d 20 34 20 |op-to-bu|ffer] 4 |
|00002460| 28 23 24 20 2e 20 38 38 | 31 36 29 5d 29 0a 23 40 |(#$ . 88|16)]).#@|
|00002470| 32 33 38 20 49 66 20 69 | 6e 20 61 6e 20 49 4c 49 |238 If i|n an ILI|
|00002480| 53 50 20 62 75 66 66 65 | 72 2c 20 73 77 69 74 63 |SP buffe|r, switc|
|00002490| 68 20 74 6f 20 74 68 65 | 20 62 75 66 66 65 72 20 |h to the| buffer |
|000024a0| 74 68 61 74 20 6c 61 73 | 74 20 73 77 69 74 63 68 |that las|t switch|
|000024b0| 65 64 20 74 6f 0a 61 6e | 20 49 4c 49 53 50 20 6f |ed to.an| ILISP o|
|000024c0| 74 68 65 72 77 69 73 65 | 2c 20 73 77 69 74 63 68 |therwise|, switch|
|000024d0| 20 74 6f 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | to the |current |
|000024e0| 49 4c 49 53 50 20 62 75 | 66 66 65 72 2e 20 20 57 |ILISP bu|ffer. W|
|000024f0| 69 74 68 0a 61 72 67 75 | 6d 65 6e 74 2c 20 70 6f |ith.argu|ment, po|
|00002500| 73 69 74 69 6f 6e 73 20 | 63 75 72 73 6f 72 20 61 |sitions |cursor a|
|00002510| 74 20 65 6e 64 20 6f 66 | 20 62 75 66 66 65 72 2e |t end of| buffer.|
|00002520| 20 20 49 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 77 | If you| don't w|
|00002530| 61 6e 74 20 74 6f 0a 73 | 70 6c 69 74 20 77 69 6e |ant to.s|plit win|
|00002540| 64 6f 77 73 2c 20 73 65 | 74 20 70 6f 70 2d 75 70 |dows, se|t pop-up|
|00002550| 2d 77 69 6e 64 6f 77 73 | 20 74 6f 20 4e 49 4c 2e |-windows| to NIL.|
|00002560| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 77 69 |..(defal|ias 'swi|
|00002570| 74 63 68 2d 74 6f 2d 6c | 69 73 70 20 23 5b 28 65 |tch-to-l|isp #[(e|
|00002580| 6f 62 2d 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 69 |ob-p &op|tional i|
|00002590| 6c 69 73 70 2d 6f 6e 6c | 79 29 20 22 08 ac 8c 09 |lisp-onl|y) "....|
|000025a0| ab 89 5c 6e 0b 73 ab 84 | c4 09 21 87 5c 6e 0b 73 |..\n.s..|..!.\n.s|
|000025b0| ac 82 70 11 c4 c5 20 21 | 88 0e 06 ad 82 64 62 87 |..p... !|.....db.|
|000025c0| 22 20 5b 69 6c 69 73 70 | 2d 6f 6e 6c 79 20 69 6c |" [ilisp|-only il|
|000025d0| 69 73 70 2d 6c 61 73 74 | 2d 62 75 66 66 65 72 20 |isp-last|-buffer |
|000025e0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 69 6c 69 73 70 |major-mo|de ilisp|
|000025f0| 2d 6d 6f 64 65 73 20 6c | 69 73 70 2d 70 6f 70 2d |-modes l|isp-pop-|
|00002600| 74 6f 2d 62 75 66 66 65 | 72 20 69 6c 69 73 70 2d |to-buffe|r ilisp-|
|00002610| 62 75 66 66 65 72 20 65 | 6f 62 2d 70 5d 20 32 20 |buffer e|ob-p] 2 |
|00002620| 28 23 24 20 2e 20 39 33 | 33 32 29 20 22 50 22 5d |(#$ . 93|32) "P"]|
|00002630| 29 0a | |). | |
+--------+-------------------------+-------------------------+--------+--------+
